﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class camclaFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As CamclaBE
        Dim tmpCamcla As CamclaBE = New CamclaBE()
        Try
            With tmpCamcla
                .IdAnt = convertDTFromDb.convertInt32(dr.Item("IdAnt"))
                .IdNuevo = convertDTFromDb.convertInt32(dr.Item("IdNuevo"))

            End With
            Return tmpCamcla
        Catch ex As Exception
            Throw
        Finally
            tmpCamcla = Nothing
        End Try
    End Function
End Class
